home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr48 / zip2obj.zip / GETBOGEY.PAS < prev    next >
Pascal/Delphi Source File  |  1993-04-10  |  960b  |  45 lines
  1. Program GetBogey;
  2. uses XZip;
  3.  
  4. {$R-,S-,I- }
  5.  
  6. {$IFDEF STUB }
  7.   {$M 1024, 0, 0 }
  8. {$ELSE }
  9.   {$M 1024, 65536, 65536 }
  10. {$ENDIF }
  11.  
  12. Function BogeySize : Word; Far; External;
  13. Procedure ExplodeBogey(Var buffer); Far; External;
  14. {$L BOGEY.OBJ }
  15.  
  16. Procedure ConWrite(s : String); External;
  17. Procedure ConWriteLn(s : String); External;
  18. {$L CONWRITE.OBJ }
  19.  
  20. Var
  21.   f            : File;
  22.   p            : Pointer;
  23.   s            : String[10];
  24.  
  25. Begin
  26.   ConWriteLn('Unzipping Bogey to file BOGEY.BIN...');
  27.   Assign(f, 'BOGEY.BIN');
  28.   Rewrite(f, 1);
  29.   If IOResult > 0 Then
  30.     ConWriteLn('error: couldn''t open output file')
  31.   Else
  32.     Begin
  33.       GetMem(p, BogeySize);
  34.       ExplodeBogey(p^);
  35.       ConWrite('Writing ');
  36.       Str(BogeySize, s);
  37.       ConWrite(s);
  38.       ConWriteLn(' bytes.');
  39.       BlockWrite(f, p^, BogeySize);
  40.       If IOResult > 0 Then
  41.         ConWriteLn('error: disk full')
  42.       Else
  43.         Close(f);
  44.     end;
  45. end.